home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 September / PCWorld_2008-09_cd.bin / domacnost a kancelar / winbubble / WinBubble 1.74.exe / WinBubble 1.74\Tools\RestorePoint.vbs < prev    next >
Text File  |  2008-07-26  |  554b  |  9 lines
  1. If WScript.Arguments.Count > 0 Then
  2.   GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Restore point For Today", 0, 100
  3.   MsgBox "System Restore Command was launched. Please wait 2-5mins or more before you can see and use the Restore point. It depends on your available disk space.",64,"UnlockForUs"
  4. Else
  5.   Dim objRestore
  6.   Set objRestore = CreateObject("Shell.Application")
  7.   objRestore.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " RunAsAdmin", , "runas", 1
  8.   Set objRestore = nothing
  9. End If